home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / cees-sierpinski-gasket2.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  1.0 KB  |  27 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║  Sierpin2.ls    │    (c) C.J. van der Mark      ║
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #╠═════════════════════════════════════════════════╩═══════════╗
  8. #║ This ls produces the 3D Sierpinski gaskets, "wire-form".    ║
  9. #║ Recursionlevel 4 will produce the 1th order gasket, 5 the   ║
  10. #║ 2th etc.                                                    ║
  11. #║                                                             ║
  12. #║ To close the bottom of the tetraeders,                      ║
  13. #║ replace b by b=[[+F++++F++++f]{+f++++f++++f]}]              ║
  14. #╚═════════════════════════════════════════════════════════════╝
  15. 8
  16. 30
  17. 1
  18. C
  19. B=[[^ea^(70)b]>>&ed]['(.5)C]+++f---
  20. C=[BB+++^^^^f---B'(.82)f'(1.22)---^'(.574)f'(1.74)+++>>>>>B]+++ff---
  21. a=[+F++++F++++F]
  22. b=[[+F++++F++++F]{[+F++++F++++F]}]
  23. # b=[[+F++++F++++f]{+f++++f++++f]}]
  24. d=[+f++++F++++f]
  25. e=(19.5)
  26. @
  27.